home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / graphics / percentg / percent.bas next >
BASIC Source File  |  1995-03-21  |  696b  |  19 lines
  1.  
  2. Sub fill (delay As Integer, r As Integer, Upper As Integer, lower As Integer)
  3.     Dim c As Integer, wdth As Integer
  4.     'upper = upper limit of percent bar (usually "100")
  5.     'lower = lower or beginning set of percent bar (usually "0")
  6.     'delay = amount of delay between increments 750 = 1 second
  7.     ' r = rate of increment
  8.     On Error Resume Next
  9.         form1!Label2.Caption = Str$(lower) + "%"
  10.         wdth = form1.Width / (Upper / r)
  11.         For c = (lower + r) To Upper Step r
  12.             form1!Label2.Caption = Str$(c) + "%"
  13.             form1!Label1.Width = wdth + form1!Label1.Width
  14.             For t = 1 To (delay * 750)
  15.             Next t
  16.         Next c
  17. End Sub
  18.  
  19.